home *** CD-ROM | disk | FTP | other *** search
/ Adventure Games / Adventure Games 1.iso / panic / panic.exe / panic.DXR / 00303.ls < prev    next >
Encoding:
Text File  |  1995-08-24  |  321 b   |  14 lines
  1. on mouseDown
  2.   set whichSprite to the clickOn
  3.   if legalButton(whichSprite) then
  4.     puppetSprite(whichSprite - 1, 1)
  5.     puppetSprite(whichSprite, 1)
  6.     puppetSprite(whichSprite + 1, 1)
  7.     addToken(whichSprite)
  8.     repeat with x = the frame + 1 to label("L13") - 1
  9.       go(x)
  10.     end repeat
  11.     scene2()
  12.   end if
  13. end
  14.